home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Megahits 3
/
Megahits 3 (1994)(GTI - Rhein-Main-Soft)(DE)[!].iso
/
module
/
utilities
/
quadracomposer
/
qcinstall2.0
< prev
next >
Wrap
Text File
|
1994-10-14
|
2KB
|
102 lines
;$VER: QCInstall v1.0
;By Bo Lincoln 1993
;This script uses the installer program to install Quadra Composer to
;your hard drive.
(complete 0)
(welcome)
;Check kickver
(if (< (/ (getversion) 65536) 37)
(abort ("You must have kickstart 2.0x to use this installation "
"utility, and to run QuadraComposer 2.0")
)
)
(message
("\nThis program lets you install Quadra Composer to your hard ")
("disk drive. If you don't own one, abort installation immediately. ")
)
(set sdir (pathonly @icon))
;Get dir for drawer
(set tdir (askdir (prompt ("Where do you want to install Quadra Composer 2.0?"))
(help ("Select a drawer where you want to install the ")
("Quadra Composer 2.0.\n")
)
(default @default-dest)
)
)
(set @default-dest tdir)
(set ans (askbool
(
(prompt "\nDo you want to make a new drawer called QuadraComposer?")
(help "")
)
)
)
(if
(= 1 ans)
(
(makedir (tackon tdir "QuadraComposer") (infos))
(set tdir (tackon tdir "QuadraComposer"))
)
)
(working ("Copying Quadra Composer"))
;Copy main program
(copyfiles
(source (tackon sdir "QuadraComposer"))
(dest tdir)
(help @copyfiles-help)
(infos)
)
;50%
(complete 70)
(message
"\nAnd now the fonts, QC 6 & 8, will be copied..."
)
(copyfiles
(source (tackon sdir "fonts"))
(all)
(dest "FONTS:")
(fonts)
(help @copyfiles-help)
)
(complete 75)
(message
"\nSome textfiles are included in this package; manual and replayroutines."
" They will now be installed..."
)
;Copy manual
(copyfiles
(prompt "Select files to copy:")
(source sdir)
(dest tdir)
(help @copyfiles-help)
(choices
"QCManual2.0.txt"
"QCReplay.s"
"QCFastreplay.s"
)
(confirm)
(infos)
)
(complete 90)
(message
"\nThis is the last part of this installation. 'reqtools.library' will "
"be copied to your libs: drawer, if you don't "
"already have a later version installed."
)
(copylib
(prompt "Copying reqtools...")
(help @copylib-help)
(source (tackon sdir "libs/reqtools.library"))
(dest "libs:")
(confirm)
)
(complete 100)
(exit ("Have fun!"))